home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 201 / DPCS1104.ISO / Full / QuickBooks / QBTutor / Lesson2 / Lesson2.dcr / 00144_menu Delete itemize (flicker-select).ls < prev    next >
Encoding:
Text File  |  2001-11-19  |  2.4 KB  |  66 lines
  1. property PropMenuName, PropLocalState, ListBackSprite, spriteNum
  2. global immutableCustomers, mutableCustomers, listItemNumber, listItemCount, menuName, menuLock, sShade, sDrop, menustate, flicker
  3.  
  4. on getPropertyDescriptionList
  5.   description = [:]
  6.   addProp(description, #PropMenuName, [#default: EMPTY, #format: #string, #comment: "Menu Name:"])
  7.   addProp(description, #PropLocalState, [#default: 4, #format: #number, #comment: "Unique/Even Menu State:"])
  8.   addProp(description, #ListBackSprite, [#default: -1, #format: #number, #comment: "List background Sprite:"])
  9.   return description
  10. end
  11.  
  12. on mouseEnter me
  13.   if (menuLock <> EMPTY) and (menuName = PropMenuName) and (listItemNumber >= immutableCustomers.count) then
  14.     sprite(spriteNum - 1).locH = sprite(spriteNum).left
  15.     sprite(spriteNum - 1).locV = sprite(spriteNum).top
  16.   end if
  17. end
  18.  
  19. on mouseLeave me
  20.   sprite(spriteNum - 1).locV = 0 - sprite(spriteNum - 1).height
  21. end
  22.  
  23. on mouseDown me
  24.   if (menuLock <> EMPTY) and (menuName = PropMenuName) and (listItemNumber >= immutableCustomers.count) then
  25.     menustate = PropLocalState
  26.     flicker = 0
  27.   end if
  28. end
  29.  
  30. on exitFrame me
  31.   if menustate = PropLocalState then
  32.     if sprite(spriteNum - 1).locV < 0 then
  33.       sprite(spriteNum - 1).locH = sprite(spriteNum).left
  34.       sprite(spriteNum - 1).locV = sprite(spriteNum).top
  35.     else
  36.       sprite(spriteNum - 1).locV = 0 - sprite(spriteNum - 1).height
  37.     end if
  38.     flicker = flicker + 1
  39.     if flicker = (PropLocalState + 1) then
  40.       menustate = 0
  41.       sprite(sShade).locV = 0 - sprite(sShade).height
  42.       sprite(sDrop).locV = 0 - sprite(sDrop).height
  43.       induhvidual = listItemNumber - immutableCustomers.count + 1
  44.       deleteAt(mutableCustomers, induhvidual)
  45.       writeCustomerListData()
  46.       sendSprite(ListBackSprite, #deselectList)
  47.       listItemCount = 0
  48.       nom = EMPTY
  49.       bal = EMPTY
  50.       repeat with i = 1 to immutableCustomers.count
  51.         nom = nom & immutableCustomers[i].Customer & RETURN
  52.         bal = bal & immutableCustomers[i].Balance & RETURN
  53.         listItemCount = listItemCount + 1
  54.       end repeat
  55.       repeat with i = 1 to mutableCustomers.count
  56.         nom = nom & mutableCustomers[i].Customer & RETURN
  57.         bal = bal & mutableCustomers[i].Balance & RETURN
  58.         listItemCount = listItemCount + 1
  59.       end repeat
  60.       member("C:J List names").text = nom
  61.       member("C:J List balance").text = bal
  62.       menuLock = EMPTY
  63.     end if
  64.   end if
  65. end
  66.